home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / fun / bpromise.cpt / The Bible Promise Stack© / background_5181.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-08-27  |  18.9 KB  |  423 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>5181</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_5672.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3099.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>473</left>
  23.             <top>1</top>
  24.             <right>511</right>
  25.             <bottom>22</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>21700</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>New Button</name>
  40.         <script>on mouseUp
  41. global balloonwastrue
  42. balloon
  43. if the result is not empty then
  44. play "Click"
  45. show menuBar
  46. go Home
  47. else
  48. play "Click"
  49. answer "Do you want balloon help turned off?" with "Yes" or "No"
  50. if it = "Yes" then
  51. balloon false
  52. put false into balloonwastrue
  53. show menuBar
  54. go Home
  55. else
  56. show menuBar
  57. go Home
  58. end if
  59. end if
  60. pass mouseUp
  61. end mouseUp
  62.  
  63. on mousewithin
  64. balloon "Click this button to go Home."
  65. end mousewithin
  66. </script>
  67.     </part>
  68.     <part>
  69.         <id>2</id>
  70.         <type>button</type>
  71.         <visible> <true /> </visible>
  72.         <reserved5> 0 </reserved5>
  73.         <reserved4> 0 </reserved4>
  74.         <reserved3> 0 </reserved3>
  75.         <reserved2> 0 </reserved2>
  76.         <reserved1> 0 </reserved1>
  77.         <enabled> <true /> </enabled>
  78.         <rect>
  79.             <left>0</left>
  80.             <top>320</top>
  81.             <right>28</right>
  82.             <bottom>342</bottom>
  83.         </rect>
  84.         <style>transparent</style>
  85.         <showName> <false /> </showName>
  86.         <highlight> <false /> </highlight>
  87.         <autoHighlight> <true /> </autoHighlight>
  88.         <sharedHighlight> <true /> </sharedHighlight>
  89.         <family>0</family>
  90.         <titleWidth>0</titleWidth>
  91.         <icon>19381</icon>
  92.         <textAlign>center</textAlign>
  93.         <font>Chicago</font>
  94.         <textSize>12</textSize>
  95.         <textStyle>plain</textStyle>
  96.         <name>New Button</name>
  97.         <script>on mouseup
  98. global balloonwastrue
  99. play "Click"
  100. balloon
  101. if the result is not empty then
  102. lock screen
  103. go previous
  104. unlock screen with visual effect wipe right
  105. else
  106. put true into balloonwastrue
  107. lock screen
  108. go previous
  109. unlock screen with visual effect wipe right
  110. end if
  111. pass mouseUp
  112. end mouseUp
  113.  
  114. on mousewithin
  115. balloon "Click this button to go to the previous card."
  116. end mousewithin
  117.  
  118. </script>
  119.     </part>
  120.     <part>
  121.         <id>3</id>
  122.         <type>button</type>
  123.         <visible> <true /> </visible>
  124.         <reserved5> 0 </reserved5>
  125.         <reserved4> 0 </reserved4>
  126.         <reserved3> 0 </reserved3>
  127.         <reserved2> 0 </reserved2>
  128.         <reserved1> 0 </reserved1>
  129.         <enabled> <true /> </enabled>
  130.         <rect>
  131.             <left>28</left>
  132.             <top>320</top>
  133.             <right>58</right>
  134.             <bottom>342</bottom>
  135.         </rect>
  136.         <style>transparent</style>
  137.         <showName> <false /> </showName>
  138.         <highlight> <false /> </highlight>
  139.         <autoHighlight> <true /> </autoHighlight>
  140.         <sharedHighlight> <true /> </sharedHighlight>
  141.         <family>0</family>
  142.         <titleWidth>0</titleWidth>
  143.         <icon>22308</icon>
  144.         <textAlign>center</textAlign>
  145.         <font>Chicago</font>
  146.         <textSize>12</textSize>
  147.         <textStyle>plain</textStyle>
  148.         <name>New Button</name>
  149.         <script>on mouseUp
  150. global balloonwastrue
  151. play "Click"
  152. balloon
  153. if the result is not empty then
  154. lock screen
  155. go next
  156. unlock screen with visual effect wipe left
  157. else
  158. put true into balloonwastrue
  159. lock screen
  160. go next
  161. unlock screen with visual effect wipe left
  162. end if
  163. pass mouseup
  164. end mouseUp
  165.  
  166. on mousewithin
  167. balloon "Click this button to go the the next card."
  168. end mousewithin
  169. </script>
  170.     </part>
  171.     <part>
  172.         <id>4</id>
  173.         <type>button</type>
  174.         <visible> <true /> </visible>
  175.         <reserved5> 0 </reserved5>
  176.         <reserved4> 0 </reserved4>
  177.         <reserved3> 0 </reserved3>
  178.         <reserved2> 0 </reserved2>
  179.         <reserved1> 0 </reserved1>
  180.         <enabled> <true /> </enabled>
  181.         <rect>
  182.             <left>131</left>
  183.             <top>323</top>
  184.             <right>164</right>
  185.             <bottom>340</bottom>
  186.         </rect>
  187.         <style>shadow</style>
  188.         <showName> <true /> </showName>
  189.         <highlight> <false /> </highlight>
  190.         <autoHighlight> <true /> </autoHighlight>
  191.         <sharedHighlight> <true /> </sharedHighlight>
  192.         <family>0</family>
  193.         <titleWidth>0</titleWidth>
  194.         <icon>0</icon>
  195.         <textAlign>center</textAlign>
  196.         <font>Geneva</font>
  197.         <textSize>9</textSize>
  198.         <textStyle>plain</textStyle>
  199.         <name>Topics</name>
  200.         <script>on mouseUp
  201. global balloonwastrue
  202. play "Click"
  203. balloon
  204. if the result is not empty then
  205. visual effect wipe right
  206. go to card id 25127
  207. else
  208. put true into balloonwastrue
  209. visual effect wipe right
  210. go to card id 25127
  211. end if
  212. end mouseUp
  213.  
  214. on mousewithin
  215. balloon "Click this button to return to the Topics card."
  216. end mousewithin
  217.  
  218. </script>
  219.     </part>
  220.     <part>
  221.         <id>5</id>
  222.         <type>field</type>
  223.         <visible> <true /> </visible>
  224.         <dontWrap> <false /> </dontWrap>
  225.         <dontSearch> <false /> </dontSearch>
  226.         <sharedText> <false /> </sharedText>
  227.         <fixedLineHeight> <true /> </fixedLineHeight>
  228.         <autoTab> <false /> </autoTab>
  229.         <lockText> <true /> </lockText>
  230.         <rect>
  231.             <left>24</left>
  232.             <top>50</top>
  233.             <right>251</right>
  234.             <bottom>311</bottom>
  235.         </rect>
  236.         <style>scrolling</style>
  237.         <autoSelect> <false /> </autoSelect>
  238.         <showLines> <false /> </showLines>
  239.         <wideMargins> <true /> </wideMargins>
  240.         <multipleLines> <false /> </multipleLines>
  241.         <reservedFamily> 0 </reservedFamily>
  242.         <titleWidth>0</titleWidth>
  243.         <icon>0</icon>
  244.         <textAlign>left</textAlign>
  245.         <font>Times</font>
  246.         <textSize>12</textSize>
  247.         <textStyle>plain</textStyle>
  248.         <textHeight>16</textHeight>
  249.         <name>1</name>
  250.         <script>--Original Export Text Function by Gary Bond
  251. --Copyright 1987 by Apple Computer, Inc.
  252. --Rev 3.6
  253.  
  254. on mouseup
  255. if the clickText is not empty then
  256. checkballoon
  257. select the clickChunk
  258. play "Click"
  259. put the clickText into textstuff
  260. answer "Do you want to append this verse to an existing file or create a new file?" with "Append" or "New File" or "Cancel"
  261. if it = "Cancel" then
  262. select empty
  263. exit mouseup
  264. else
  265. if it = "New File" then
  266. ask file "Name the file to output verse to..." with "Verse File"
  267. if it is empty then
  268. select empty
  269. exit mouseup
  270. else put it into Fname
  271. open file Fname
  272. write textstuff & return to file Fname
  273. close file Fname
  274. get ChangeFileType(Fname, "TEXT","ttxt")
  275. else
  276. answer file "Choose a file to append this verse to..." of type "TEXT"
  277. if it is empty then
  278. select empty
  279. exit mouseup
  280. else
  281. put it into Fname
  282. put empty into InText
  283. open file Fname
  284. write return & textstuff to file Fname at eof
  285. close file Fname
  286. end if
  287. end if
  288. end if
  289. select empty
  290. else
  291. exit mouseup
  292. end if
  293. pass mouseup
  294. end mouseup
  295.  
  296. on mouseWithin
  297. balloon "Click on a verse to export it to a text file."
  298. global scrolllock
  299. if scrolllock is true
  300. then
  301. if scroll of bg fld "2" is not scroll of bg fld "1"
  302. then
  303. lock screen
  304. set scroll of bg fld "2" to scroll of bg fld  "1"
  305. unlock screen
  306. end if
  307. end if
  308. end mouseWithin
  309.  
  310. on checkballoon
  311. global balloonwastrue
  312. balloon
  313. if the result is not empty then
  314. exit checkballoon
  315. else
  316. put true into balloonwastrue
  317. exit checkballoon
  318. end if
  319. end checkballoon
  320.  
  321. </script>
  322.     </part>
  323.     <part>
  324.         <id>6</id>
  325.         <type>field</type>
  326.         <visible> <true /> </visible>
  327.         <dontWrap> <false /> </dontWrap>
  328.         <dontSearch> <false /> </dontSearch>
  329.         <sharedText> <false /> </sharedText>
  330.         <fixedLineHeight> <true /> </fixedLineHeight>
  331.         <autoTab> <false /> </autoTab>
  332.         <lockText> <true /> </lockText>
  333.         <rect>
  334.             <left>259</left>
  335.             <top>50</top>
  336.             <right>487</right>
  337.             <bottom>311</bottom>
  338.         </rect>
  339.         <style>scrolling</style>
  340.         <autoSelect> <false /> </autoSelect>
  341.         <showLines> <false /> </showLines>
  342.         <wideMargins> <true /> </wideMargins>
  343.         <multipleLines> <false /> </multipleLines>
  344.         <reservedFamily> 0 </reservedFamily>
  345.         <titleWidth>0</titleWidth>
  346.         <icon>0</icon>
  347.         <textAlign>left</textAlign>
  348.         <font>Times</font>
  349.         <textSize>12</textSize>
  350.         <textStyle>plain</textStyle>
  351.         <textHeight>16</textHeight>
  352.         <name>2</name>
  353.         <script>--Original Export Text Function by Gary Bond
  354. --Copyright 1987 by Apple Computer, Inc.
  355. --Rev 3.6
  356.  
  357. on mouseup
  358. if the clickText is not empty then
  359. checkballoon
  360. select the clickChunk
  361. play "Click"
  362. put the clickText into textstuff
  363. answer "Do you want to append this verse to an existing file or create a new file?" with "Append" or "New File" or "Cancel"
  364. if it = "Cancel" then
  365. select empty
  366. exit mouseup
  367. else
  368. if it = "New File" then
  369. ask file "Name the file to output verse to..." with "Verse File"
  370. if it is empty then
  371. select empty
  372. exit mouseup
  373. else put it into Fname
  374. open file Fname
  375. write textstuff & return to file Fname
  376. close file Fname
  377. get ChangeFileType(Fname, "TEXT","ttxt")
  378. else
  379. answer file "Choose a file to append this verse to..." of type "TEXT"
  380. if it is empty then
  381. select empty
  382. exit mouseup
  383. else
  384. put it into Fname
  385. put empty into InText
  386. open file Fname
  387. write return & textstuff to file Fname at eof
  388. close file Fname
  389. end if
  390. end if
  391. end if
  392. select empty
  393. else
  394. exit mouseup
  395. end if
  396. pass mouseup
  397. end mouseup
  398.  
  399. on mouseWithin
  400. balloon "Click on a verse to export it to a text file."
  401. global scrolllock
  402. if scrolllock is true
  403. then
  404. if scroll of bg fld "1" is not scroll of bg fld "2"
  405. then
  406. lock screen
  407. set scroll of bg fld "1" to scroll of bg fld  "2"
  408. unlock screen
  409. end if
  410. end if
  411. end mouseWithin
  412.  
  413. on checkballoon
  414. global balloonwastrue
  415. balloon
  416. if the result is not empty then
  417. exit checkballoon
  418. else
  419. put true into balloonwastrue
  420. exit checkballoon
  421. end if
  422. end checkballoon</script>
  423.     </part>
  424.     <part>
  425.         <id>14</id>
  426.         <type>button</type>
  427.         <visible> <true /> </visible>
  428.         <reserved5> 0 </reserved5>
  429.         <reserved4> 0 </reserved4>
  430.         <reserved3> 0 </reserved3>
  431.         <reserved2> 0 </reserved2>
  432.         <reserved1> 0 </reserved1>
  433.         <enabled> <true /> </enabled>
  434.         <rect>
  435.             <left>200</left>
  436.             <top>323</top>
  437.             <right>222</right>
  438.             <bottom>340</bottom>
  439.         </rect>
  440.         <style>shadow</style>
  441.         <showName> <true /> </showName>
  442.         <highlight> <false /> </highlight>
  443.         <autoHighlight> <true /> </autoHighlight>
  444.         <sharedHighlight> <true /> </sharedHighlight>
  445.         <family>0</family>
  446.         <titleWidth>0</titleWidth>
  447.         <icon>0</icon>
  448.         <textAlign>center</textAlign>
  449.         <font>Geneva</font>
  450.         <textSize>9</textSize>
  451.         <textStyle>plain</textStyle>
  452.         <name>Quit</name>
  453.         <script>on mouseUp
  454. global balloonwastrue
  455. balloon
  456. if the result is not empty then
  457. play "Click"
  458. doMenu "Quit Hypercard"
  459. else
  460. play "Click"
  461. answer "Do you want balloon help turned off?" with "Yes" or "No"
  462. if it = "Yes" then
  463. balloon false
  464. put false into balloonwastrue
  465. doMenu "Quit Hypercard"
  466. else
  467. doMenu "Quit Hypercard"
  468. end if
  469. end if
  470. pass mouseUp
  471. end mouseUp
  472.  
  473. on mousewithin
  474. balloon "Click this button to Quit Hypercard."
  475. end mousewithin
  476. </script>
  477.     </part>
  478.     <part>
  479.         <id>16</id>
  480.         <type>button</type>
  481.         <visible> <true /> </visible>
  482.         <reserved5> 0 </reserved5>
  483.         <reserved4> 0 </reserved4>
  484.         <reserved3> 0 </reserved3>
  485.         <reserved2> 0 </reserved2>
  486.         <reserved1> 0 </reserved1>
  487.         <enabled> <true /> </enabled>
  488.         <rect>
  489.             <left>165</left>
  490.             <top>323</top>
  491.             <right>199</right>
  492.             <bottom>340</bottom>
  493.         </rect>
  494.         <style>shadow</style>
  495.         <showName> <true /> </showName>
  496.         <highlight> <false /> </highlight>
  497.         <autoHighlight> <true /> </autoHighlight>
  498.         <sharedHighlight> <true /> </sharedHighlight>
  499.         <family>0</family>
  500.         <titleWidth>0</titleWidth>
  501.         <icon>0</icon>
  502.         <textAlign>center</textAlign>
  503.         <font>Geneva</font>
  504.         <textSize>9</textSize>
  505.         <textStyle>plain</textStyle>
  506.         <name>Export</name>
  507.         <script>--Original Export Text Function by Gary Bond
  508. --Copyright 1987 by Apple Computer, Inc.
  509. --Rev 3.6
  510.  
  511. on mouseUp
  512. play "Click"
  513. answer "Which version of the verses for the topic of '"&the short name of this card&"' do you want to export?" with "King James" or "NIV" or "Both"
  514. if it = "King James" then
  515. kingjames
  516. else
  517. if it = "NIV" then
  518. niv
  519. else
  520. both
  521. end if
  522. end if
  523. end mouseUp
  524.  
  525. on niv
  526. ask file "Name the file you wish to export the verses to..." with "NIV File"
  527. if it is empty then
  528. exit niv
  529. else
  530. put it into Fname
  531. open file Fname
  532. write "NIV Version" & return to file Fname
  533. write field "2" to file Fname
  534. close file Fname
  535. get ChangeFileType(Fname, "TEXT","ttxt")
  536. end if
  537. end niv
  538.  
  539.  
  540. on kingjames
  541. ask file "Name the file you wish to export the verses to..." with "King James File"
  542. if it is empty then
  543. exit kingjames
  544. else
  545. put it into Fname
  546. open file Fname
  547. write "King James Version" & return to file Fname
  548. write field "1" to file Fname
  549. close file Fname
  550. get ChangeFileType(Fname, "TEXT","ttxt")
  551. end if
  552. end kingjames
  553.  
  554. on both
  555. ask file "Name the file you wish to export the verses to..."
  556. if it is empty then
  557. exit both
  558. else
  559. put it into Fname
  560. open file Fname
  561. write "King James Version" & return to file Fname
  562. write field "1" & return & return to file Fname
  563. write "NIV Version" & return to file Fname
  564. write field "2" to file Fname
  565. close file Fname
  566. get ChangeFileType(Fname, "TEXT","ttxt")
  567. end if
  568. end both
  569.  
  570. on mousewithin
  571. put the short name of this card into cardname
  572. balloon "Click this button to export all the verses for the" ┬¼
  573. & " topic of " &cardname& " from the King James Version, the NIV version" ┬¼
  574. & " , or both."
  575. end mousewithin
  576.  
  577.  
  578.  
  579.  
  580. </script>
  581.     </part>
  582.     <part>
  583.         <id>17</id>
  584.         <type>button</type>
  585.         <visible> <true /> </visible>
  586.         <reserved5> 0 </reserved5>
  587.         <reserved4> 0 </reserved4>
  588.         <reserved3> 0 </reserved3>
  589.         <reserved2> 0 </reserved2>
  590.         <reserved1> 0 </reserved1>
  591.         <enabled> <true /> </enabled>
  592.         <rect>
  593.             <left>224</left>
  594.             <top>323</top>
  595.             <right>242</right>
  596.             <bottom>342</bottom>
  597.         </rect>
  598.         <style>transparent</style>
  599.         <showName> <false /> </showName>
  600.         <highlight> <false /> </highlight>
  601.         <autoHighlight> <true /> </autoHighlight>
  602.         <sharedHighlight> <true /> </sharedHighlight>
  603.         <family>0</family>
  604.         <titleWidth>0</titleWidth>
  605.         <icon>26635</icon>
  606.         <textAlign>center</textAlign>
  607.         <font>Chicago</font>
  608.         <textSize>12</textSize>
  609.         <textStyle>plain</textStyle>
  610.         <name>New Button</name>
  611.         <script>on mouseUp
  612. play "Click"
  613. global balloonwastrue
  614. balloon
  615. if the result is not empty then
  616. balloon true
  617. put true into balloonwastrue
  618. else
  619. balloon false
  620. put false into balloonwastrue
  621. end if
  622. pass mouseUp
  623. end mouseUp
  624.  
  625.  
  626. on mouseWithin
  627. balloon "Click this button to turn balloon help" ┬¼
  628. & " on or off."
  629. end mouseWithin</script>
  630.     </part>
  631.     <part>
  632.         <id>19</id>
  633.         <type>field</type>
  634.         <visible> <true /> </visible>
  635.         <dontWrap> <false /> </dontWrap>
  636.         <dontSearch> <false /> </dontSearch>
  637.         <sharedText> <false /> </sharedText>
  638.         <fixedLineHeight> <false /> </fixedLineHeight>
  639.         <autoTab> <false /> </autoTab>
  640.         <lockText> <true /> </lockText>
  641.         <rect>
  642.             <left>132</left>
  643.             <top>0</top>
  644.             <right>373</right>
  645.             <bottom>20</bottom>
  646.         </rect>
  647.         <style>transparent</style>
  648.         <autoSelect> <false /> </autoSelect>
  649.         <showLines> <false /> </showLines>
  650.         <wideMargins> <false /> </wideMargins>
  651.         <multipleLines> <false /> </multipleLines>
  652.         <reservedFamily> 0 </reservedFamily>
  653.         <titleWidth>0</titleWidth>
  654.         <icon>0</icon>
  655.         <textAlign>center</textAlign>
  656.         <font>Times</font>
  657.         <textSize>16</textSize>
  658.         <textStyle>shadow</textStyle>
  659.         <textStyle>bold</textStyle>
  660.         <textHeight>21</textHeight>
  661.         <name>card title</name>
  662.         <script></script>
  663.     </part>
  664.     <part>
  665.         <id>21</id>
  666.         <type>field</type>
  667.         <visible> <true /> </visible>
  668.         <dontWrap> <false /> </dontWrap>
  669.         <dontSearch> <false /> </dontSearch>
  670.         <sharedText> <false /> </sharedText>
  671.         <fixedLineHeight> <false /> </fixedLineHeight>
  672.         <autoTab> <false /> </autoTab>
  673.         <lockText> <true /> </lockText>
  674.         <rect>
  675.             <left>61</left>
  676.             <top>30</top>
  677.             <right>219</right>
  678.             <bottom>50</bottom>
  679.         </rect>
  680.         <style>transparent</style>
  681.         <autoSelect> <false /> </autoSelect>
  682.         <showLines> <false /> </showLines>
  683.         <wideMargins> <false /> </wideMargins>
  684.         <multipleLines> <false /> </multipleLines>
  685.         <reservedFamily> 0 </reservedFamily>
  686.         <titleWidth>0</titleWidth>
  687.         <icon>0</icon>
  688.         <textAlign>left</textAlign>
  689.         <font>Times</font>
  690.         <textSize>18</textSize>
  691.         <textStyle>plain</textStyle>
  692.         <textHeight>24</textHeight>
  693.         <name>KJV</name>
  694.         <script></script>
  695.     </part>
  696.     <part>
  697.         <id>22</id>
  698.         <type>field</type>
  699.         <visible> <true /> </visible>
  700.         <dontWrap> <false /> </dontWrap>
  701.         <dontSearch> <false /> </dontSearch>
  702.         <sharedText> <false /> </sharedText>
  703.         <fixedLineHeight> <false /> </fixedLineHeight>
  704.         <autoTab> <false /> </autoTab>
  705.         <lockText> <true /> </lockText>
  706.         <rect>
  707.             <left>274</left>
  708.             <top>31</top>
  709.             <right>475</right>
  710.             <bottom>49</bottom>
  711.         </rect>
  712.         <style>transparent</style>
  713.         <autoSelect> <false /> </autoSelect>
  714.         <showLines> <false /> </showLines>
  715.         <wideMargins> <false /> </wideMargins>
  716.         <multipleLines> <false /> </multipleLines>
  717.         <reservedFamily> 0 </reservedFamily>
  718.         <titleWidth>0</titleWidth>
  719.         <icon>0</icon>
  720.         <textAlign>left</textAlign>
  721.         <font>Times</font>
  722.         <textSize>18</textSize>
  723.         <textStyle>plain</textStyle>
  724.         <textHeight>24</textHeight>
  725.         <name>NIV</name>
  726.         <script></script>
  727.     </part>
  728.     <part>
  729.         <id>26</id>
  730.         <type>button</type>
  731.         <visible> <true /> </visible>
  732.         <reserved5> 0 </reserved5>
  733.         <reserved4> 0 </reserved4>
  734.         <reserved3> 0 </reserved3>
  735.         <reserved2> 0 </reserved2>
  736.         <reserved1> 0 </reserved1>
  737.         <enabled> <true /> </enabled>
  738.         <rect>
  739.             <left>57</left>
  740.             <top>323</top>
  741.             <right>130</right>
  742.             <bottom>340</bottom>
  743.         </rect>
  744.         <style>shadow</style>
  745.         <showName> <true /> </showName>
  746.         <highlight> <false /> </highlight>
  747.         <autoHighlight> <true /> </autoHighlight>
  748.         <sharedHighlight> <true /> </sharedHighlight>
  749.         <family>0</family>
  750.         <titleWidth>0</titleWidth>
  751.         <icon>0</icon>
  752.         <textAlign>center</textAlign>
  753.         <font>Geneva</font>
  754.         <textSize>9</textSize>
  755.         <textStyle>plain</textStyle>
  756.         <name>Scroll Unlocked</name>
  757.         <script>on mouseUp
  758. global scrolllock
  759. play "Click"
  760. if the short name of bg button id 26 is "Scroll Unlocked"
  761. then
  762. put true into scrolllock
  763. Set the name of bg button id 26 to "Scroll Locked"
  764. else
  765. put false into scrolllock
  766. Set the name of bg button id 26 to "Scroll Unlocked"
  767. end if
  768. end mouseUp
  769.  
  770. on mousewithin
  771. balloon "Click this button to syncronize or unsyncronize" ┬¼
  772. & " the verse scrolling fields."
  773. end mousewithin
  774. </script>
  775.     </part>
  776.     <name>Verse Background</name>
  777.     <script>on idle
  778. pass idle
  779. end idle
  780.  
  781. on openBackground
  782. global scrolllock
  783. lock screen
  784. if the short name of bg button id 26 is "Scroll Unlocked"
  785. then
  786. put false into scrolllock
  787. else
  788. put false into scrolllock
  789. Set the name of bg button id 26 to "Scroll Unlocked"
  790. end if
  791. set the scroll of bg field "1" to 0
  792. set the scroll of bg field "2" to 0
  793. put "King James Version" into bg field "KJV"
  794. put "New International Version" into bg field "NIV"
  795. put the short name of this card into theName
  796. put theName into bg field "card title"
  797. unlock screen
  798. pass openBackground
  799. end openBackground
  800.  
  801. on openCard
  802. global balloonwastrue
  803. if balloonwastrue = "true" then
  804. balloon true
  805. put 0 into balloonwastrue
  806. else
  807. end if
  808. lock screen
  809. set the scroll of bg field "1" to 0
  810. set the scroll of bg field "2" to 0
  811. put "King James Version" into bg field "KJV"
  812. put "New International Version" into bg field "NIV"
  813. put the short name of this card into theName
  814. put theName into bg field "card title"
  815. unlock screen
  816. pass openCard
  817. end openCard
  818.  
  819. on resumecard
  820. global balloonwastrue
  821. if balloonwastrue = "true" then
  822. balloon true
  823. put 0 into balloonwastrue
  824. else
  825. end if
  826. pass resumecard
  827. end resumecard
  828.  
  829. </script>
  830. </background>
  831.